home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok82 / plot / source / formelausftext.mod < prev    next >
Text File  |  1993-11-04  |  3KB  |  70 lines
  1. IMPLEMENTATION MODULE FormelausFText;
  2. (*
  3.   Created:   30.8.87
  4.   Changed    10.02.88/1.8.88/24.8.88 by
  5.              Stefan Salewski
  6.              Stolper Weg 3
  7.              2160 Stade   West-Germany
  8.              Tel: 04141/61130
  9.              
  10.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  11.    
  12.   This Module may be freely copied. But please
  13.   leave my name in. Thanks....Stefan  
  14. *)
  15.   FROM MyStrings IMPORT Assign;
  16.   PROCEDURE GetFehlertext(n:CARDINAL;VAR s:ARRAY OF CHAR);
  17.   BEGIN
  18.     CASE n OF
  19.       (* Fehlernummern von MyMathLibLong,MyMathTrans und Formelauswertung    *)
  20.       0:Assign(s,'No Error; all OK')|
  21.       3:Assign(s,'Null hoch negative Zahl ist undefiniert')|
  22.       4:Assign(s,'Neg.Zahl hoch gebr.Zahl ist undefiniert')|
  23.       5:Assign(s,'tan(n*Pi/2)) ist undefiniert')|
  24.       6:Assign(s,'cot(n*Pi) ist undefiniert')|
  25.       7:Assign(s,'sec(x) hat Pol bei x=n*Pi/2')|
  26.       8:Assign(s,'cosec(x) hat Pol bei x=n*Pi')|
  27.       9:Assign(s,'arcsin(x) undefiniert fuer |x|>1.0')|
  28.       10:Assign(s,'arccos(x) undefiniert fuer |x|>1.0')|
  29.       11:Assign(s,'exp(x) zu gross fuer x>42')|
  30.       12:Assign(s,'ln(x) undefiniert fuer x<=0')|
  31.       13:Assign(s,'log(x) undefiniert fuer x<=0')|
  32.       14:Assign(s,'coth(x) hat Pol bei x=0')|
  33.       15:Assign(s,'arcosh(x) undefiniert fuer x>1.0')|
  34.       16:Assign(s,'artanh(x) undefiniert fuer |x|>=1.0')|
  35.       17:Assign(s,'sqrt(x) undefiniert fuer x<0')|
  36.       18:Assign(s,'sin,cos und tan haben die Periode 2Pi')|
  37.       19:Assign(s,'arcoth(x) ist undefiniert fuer |x|<=1.0')|
  38.       20:Assign(s,'int(x):nur fuer |x|<2147483648 erlaubt')|
  39.       (* Fehlernummern fuer DefFormel *)
  40.       31:Assign(s,'Formel ist leer')|
  41.       32:Assign(s,'Variablen nicht initialisiert')|
  42.       33:Assign(s,'Syntaxfehler')|
  43.       34:Assign(s,'Formel enthaelt ungueltiges Zeichen')|
  44.       35:Assign(s,'Formel enthaelt zu grosse Zahlen')|
  45.       36:Assign(s,'Formel zu gross:Kann keine () setzen')|
  46.       (* FFP Fehlernummern*)
  47.       51:Assign(s,'FFP:fac(x) zu gross fuer x>=20')|
  48.       52:Assign(s,'FFP:sqr(x) zu gross fuer x>=1E9')|
  49.       53:Assign(s,'FFP:exp(x) zu gross fuer x>=42')|
  50.       54:Assign(s,'FFP:sinh(x),cosh(x): x muss <= 42 sein')|
  51.       (* LongReal Fehlernummern*)
  52.       72:Assign(s,'LONGREAL:sqr(x) zu gross fuer x>=154')|
  53.       73:Assign(s,'LONGREAL:exp(x) zu gross fuer x>710')|
  54.       75:Assign(s,'LONGREAL:fac(x) zu gross fuer x>170') |
  55.       76:Assign(s,'fac(x) undefiniert fuer x<0')|
  56.       77:Assign(s,'fac(x) def nur fuer ganze x')|
  57.       (* Fehlernummern fuer Formelausertung                              *)
  58.       101:Assign(s,'Division durch Null')|
  59.       102:Assign(s,'Overflow durch Division')|
  60.       103:Assign(s,'Overflow durch Multiplikation')|
  61.       104:Assign(s,'Overflow durch Addition')|
  62.       105:Assign(s,'105:Overflow durch Subtraktion')|
  63.       1001:Assign(s,'Wert liegt auusserhalb des Bildschirmes ')|
  64.       1002:Assign(s,'Wert liegt nicht in Definitionsgebiet')|
  65.       1003:Assign(s,'Grenzen oder Laufvariable ungueltig')|
  66.     ELSE Assign(s,'Undefinierter Fehler');
  67.     END;
  68.   END GetFehlertext;
  69. END FormelausFText.mod
  70.